1 Z=54294:POKEZ+2,15:POKEZ+3,24:J=RND(-TI):K$=" PRESS ANY KEY TO GO ON[146]":L$=" [146]":M$=" ":N$="[147] HIGH RISE OR THREE CARD BRAG [146]":PRINT"[147]":GOSUB4000:PRINTN$:PRINT"PREAMBLE(Y/N)?":POKE53280,4 4 POKE53281,14 5 GETA$:IFA$<>"Y"ANDA$<>"N"THEN5 6 IFA$="N"THENN$="[147]":GOTO30 7 GOSUB4000:N$="[147]":PRINTN$"THE HIGHEST HAND IS 3 THREES,FOLLOWED BYTHREE ACES,THREE KINGS ETC.":PRINT"NEXT BEST IS A RUNNING FLUSH (STRAIGHT).FIRST,ACE TWO THREE,THEN ACE KING ";:PRINT"QUEEN,KING QUEEN JACK,ETC.":PRINT""K$ 11 GETA$:IFA$=""THEN11 12 GOSUB4000:PRINTN$"THEN COME THE ORDINARY RUNS IN THE SAME ORDER AS THE STRAIGHTS":PRINT"NEXT BEST IS A FLUSH.FIRST,THE ACE FLUSHTHEN,KING FLUSH,QUEEN FLUSH..":PRINT""K$ 15 GETA$:IFA$=""THEN15 16 GOSUB4000:PRINTN$"AFTER THAT COME THE PAIRS,A PAIR OF ACES BEING THE HIGHEST":PRINT"THEN A KING PAIR & SO ON.":PRINT"FINALLY,THE HIGH CARD,STARTING WITH THE ACE.":PRINT""K$ 19 GETA$:IFA$=""THEN19 20 GOSUB4000:PRINTN$"YOU START WITH A STAKE OF \1000.":PRINT"IF YOU LOSE IT ALL, I WIN ":PRINT"BUT,IF YOU INCREASE YOUR STAKE TO \10000 YOU WIN THE GAME.":PRINT""K$ 22 GETA$:IFA$=""THEN22 23 GOSUB4000:PRINTN$"AT THE START OF EACH HAND BOTH OF US MUST PUT \10 IN THE POT":PRINT"AFTER SEEING YOUR HAND YOU CAN BET,PAY UP & SEE ME,OR FOLD.IF YOU DO I WIN":PRINT"THE MINIMUM BET IS \10 BUT CAN BE RAISED":PRINT""K$ 26 GETA$:IFA$=""THEN26 27 GOSUB4000:PRINTN$"THE PLAYER WITH THE BEST HAND WINS THE POT UNLESS SOME ";:PRINT"ONE HAS ALREADY FOLDED.":PRINT"IF IT'S A DRAW,I WIN (HARD LUCK!).":PRINT""K$ 29 GETA$:IFA$=""THEN29 30 DIMP(29),Q(29):FORA=0TO29:READX,Y:X=X+200:Y=Y+200:P(A)=X:Q(A)=Y:NEXT:DATA1027,55299,1029,55301,1109,55381,1189,55461,1191,55463,1040,55312,1042,55314,1122,55394,1202,55474,1204,55476,1053,55325,1055,55327,1135,55407,1215,55487,1217,55489 39 DATA1507,55779,1509,55781,1589,55861,1669,55941,1671,55943,1520,55792,1522,55794,1602,55874,1682,55954,1684,55956,1533,55805,1535,55807,1615,55887,1695,55967,1697,55969:P$="[159]POT=\":S$="[159]STAKE=\":B$="[159]BET=\ 49 [151]Z[170]3,29:S[178]1000 50 [153]"LOAD"L$:P[178]0:V[178]10:[153]"MY HAND.":[153]" (null)TANLENLENLENTANRIGHT$CLOSECLOSE (null)TANLENLENLENTANRIGHT$ (null)TANLENLENTANTANRIGHT$":[153]" CLOSE(null) (null)CLOSE (null)CLOSE CLOSE(null)CLOSE CLOSE(null)CLOSE CLOSE CLOSE(null)":[153]" CLOSE(null) (null)CLOSE (null)CLOSE CLOSE(null)CLOSE CLOSE(null)CLOSE CLOSE CLOSE(null)":[153]" (null) * (null) (null) * (null) (null) * (null)":[153]" CLOSE(null)CLOSE (null)CLOSE (null)CLOSE CLOSE(null)CLOSECLOSE (null)CLOSE CLOSE CLOSE(null) 73 PRINT" [160][221][160] [221][160] [221][160] [160][221][160][160] [221][160] [160] [160][221]":PRINT" [160][202][195][195][195][192][192][203][160] [202][192][195][195][192][192][203][160] [160][202][192][195][192][195][192][203]":PRINTL$:PRINT"YOURS.":PRINT" [213][192][195][195][195][192][201][160][160] [213][192][195][195][195][192][201] [213][192][195][195][192][192][201]":PRINT" [160][221] [221][160] [221][160] [160][221][160] [160][221][160] [160] [160][221]":PRINT" [160][221] [221][160] [221][160] [160][221][160] [160][221][160] [160] [160][221] 89 [153]" (null) * (null) (null) * (null) (null) * (null)":[153]" CLOSE(null)CLOSE (null)CLOSE (null)CLOSE CLOSE(null)CLOSECLOSE (null)CLOSE CLOSE CLOSE(null)":[153]" CLOSE(null)CLOSE (null)CLOSE (null)CLOSE CLOSE(null)CLOSECLOSE (null)CLOSE CLOSE CLOSE(null)":[153]" CLOSEMID$LENLENLENTANTAN(null)CLOSE MID$TANLENLENTANTAN(null)CLOSE CLOSEMID$TANLENTANLENTAN(null)":[141]4100:[141]4000:[153]"PRESS D TO DEAL 104 GETA$:IFA$<>"D"THEN104 110 IFS<10THENGOSUB4020:PRINTM$"YOU CAN'T AFFORD IT!":GOSUB4100:S=0:GOSUB4010:GOTO1141 150 FORA=5TO10 153 C(A)=INT(RND(1)*13)+2:S(A)=INT(RND(1)*4)+1:IFC(A)=C(A-1)ANDS(A)=S(A-1)THEN153 162 IFC(A)=C(A-2)ANDS(A)=S(A-2)THEN153 165 IFC(A)=C(A-3)ANDS(A)=S(A-3)THEN153 168 IFC(A)=C(A-4)ANDS(A)=S(A-4)THEN153 171 IFC(A)=C(A-5)ANDS(A)=S(A-5)THEN153 200 NEXT:S=S-10:P=20:B=15:FORA=8TO10:GOSUB3500:NEXT:GOSUB4100:GOSUB3600:GOTO408 300 I=0:V$="":POKE198,0:PRINTM$:GOSUB4000:INPUT"YOUR BET";V$:IFV$=""THENGOSUB4020:PRINTM$"PLEASE ENTER A BET":GOSUB4010:GOTO300 302 IFVAL(V$)>9999THENGOSUB4020:PRINTM$"TOO MUCH-TRY AGAIN":GOSUB4010:GOTO300 303 V=VAL(V$):IFV<1ORV>9999THENM$"PLEASE TYPE A NUMBER":GOSUB40 306 IFV>STHENGOSUB4020:PRINTM$"NOT ENOUGH STAKE-I WIN":I=1:P=0:GOSUB4100:GOSUB4010:GOTO500 307 IFVAL(V$)STHENGOSUB4020:PRINTM$"YOU HAVEN'T GOT IT!":GOSUB4010:GOTO300 335 V=VAL(V$):S=S-V:P=P+V:GOSUB4100:GOTO400 340 W=INT(RND(1)*7)+1:PRINTM$:GOSUB4020:P=0:V=10:I=1:GOSUB4100:ONWGOTO350,351,352,353,354,355,356 350 PRINT"CHICKEN-I WIN":GOSUB4010:GOTO500 351 PRINT"COWARD-YOU LOSE":GOSUB4010:GOTO500 352 PRINT"YELLOWBELLY-I WIN":GOSUB4010:GOTO500 353 PRINT"SAP-YOU LOSE THE POT":GOSUB4010:GOTO500 354 PRINT"WIMP-I TAKE THE POT":GOSUB4010:GOTO500 355 PRINT"DUMMY-MY POT":GOSUB4010:GOTO500 356 PRINT"WALLY-YOU LOSE":GOSUB4010:GOTO500 400 F=E(5)*INT(RND(1)*6+1):G=INT(RND(1)*75+25):IFFRND(1)*125+75THENGOSUB4000:PRINTM$"I RAISE TO"Q:P=P+Q:V=Q:GOSUB4100:GOSUB4010:GOTO408 407 GOSUB4000:PRINTM$"I BET"V"TOO":P=P+V:GOSUB4100:GOSUB4010 408 GOSUB4000:PRINTM$"B-BET S-SEE F-FOLD 409 [161]A$:[139]A$[179][177]"B"[175]A$[179][177]"S"[175]A$[179][177]"F"[167]409 410 [139]A$[178]"B"[167]300 415 [139]A$[178]"F"[167]340 420 [139]S[177][178]V[167]I[178]0:P[178]P[170]V:S[178]S[171]V:[141]4100:[137]500 430 [141]4020:[153]M$"YOU CAN'T PAY-I WIN":P[178]0:[141]4100:[141]4010:I[178]1 500 B[178]0:[129]A[178]5[164]7:[141]3500:[130]:[139]I[178]1[167]1141 999 [153]M$:[139]E(5)[178]E(8)[167][141]4020:[153]"DRAW-MY POT":P[178]0 1120 [139]E(5)[177]E(8)[167][141]4020:[153]"I WIN-MY POT":P[178]0 1130 [139]E(5)[179]E(8)[167][141]4030:[153]"I LOSE-YOUR POT":S[178]S[170]P:P[178]0 1135 [141]4100:[141]4010 1141 [139]S[177]0[175]S[179]10000[167]1150 1142 [139]S[179]1[167][141]4020:[153]M$"GAME OVER-YOU LOST 1143 IFS>9999THENGOSUB4030:PRINTM$"GAME OVER-YOU WON 1145 [141]4010:[141]4000:V[178]0:[141]4100:[153]M$"ANOTHER GAME(Y/N)? 1147 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1147 1148 IFA$="Y"THEN49 1149 IFA$="N"THENGOSUB4000:PRINTM$"THANKS FOR PLAYING-BYE":GOSUB4010:GOTO4040 1150 GOSUB4000:PRINTM$"YOUR STAKE=\"S:GOSUB4010:V=10:GOSUB4100:GOSUB4000:PRINTM$"HIT P TO PLAY-E TO END 2010 [161]A$:[139]A$[179][177]"P"[175]A$[179][177]"E"[167]2010 2020 [139]A$[178]"P"[167]50 2030 [139]A$[178]"E"[167][153]M$ 2040 [139]S[178]1000[167][141]4000:[153]"YOU COME OUT EVEN-BYE! 2050 IFS>1000THENGOSUB4030:PRINT"YOU WON \"S-1000"- BYE! 2060 [139]S[179]1000[167][141]4020:[153]"YOU LOST \"1000[171]S"- BYE! 2070 GOSUB4010:GOTO4040 3500 IFC(A)=14THENPOKEP(B),1:POKEP(B+4),1 3515 IFC(A)=2THENPOKEP(B),50:POKEP(B+4),50 3520 IFC(A)=3THENPOKEP(B),51:POKEP(B+4),51 3525 IFC(A)=4THENPOKEP(B),52:POKEP(B+4),52 3530 IFC(A)=5THENPOKEP(B),53:POKEP(B+4),53 3535 IFC(A)=6THENPOKEP(B),54:POKEP(B+4),54 3540 IFC(A)=7THENPOKEP(B),55:POKEP(B+4),55 3545 IFC(A)=8THENPOKEP(B),56:POKEP(B+4),56 3550 IFC(A)=9THENPOKEP(B),57:POKEP(B+4),57 3555 IFC(A)=10THENPOKEP(B),49:POKEP(B+1),48:POKEP(B+3),49:POKEP(B+4),48 3560 IFC(A)=11THENPOKEP(B),10:POKEP(B+4),10 3565 IFC(A)=12THENPOKEP(B),17:POKEP(B+4),17 3570 IFC(A)=13THENPOKEP(B),11:POKEP(B+4),11 3580 IFS(A)=1THENPOKEP(B+2),83:POKEQ(B),2:POKEQ(B+1),2:POKEQ(B+2),2:POKEQ(B+3),2:POKEQ(B+4),2 3585 IFS(A)=2THENPOKEP(B+2),88:POKEQ(B),0:POKEQ(B+1),0:POKEQ(B+2),0:POKEQ(B+3),0:POKEQ(B+4),0 3590 IFS(A)=3THENPOKEP(B+2),90:POKEQ(B),2:POKEQ(B+1),2:POKEQ(B+2),2:POKEQ(B+3),2:POKEQ(B+4),2 3595 IFS(A)=4THENPOKEP(B+2),65:POKEQ(B),0:POKEQ(B+1),0:POKEQ(B+2),0:POKEQ(B+3),0:POKEQ(B+4),0 3597 B=B+5:RETURN 3600 A=5:FORH=1TO2:FORR=1TO2:IFC(A)